home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Online / News / Thor / rexx / GoldEd / Style.ged < prev    next >
Encoding:
Text File  |  1996-11-11  |  725 b   |  40 lines
  1. /* Style.ged by Troels Walsted Hansen
  2. ** $VER: Style.ged v1.00 (09.06.95)
  3. **
  4. ** Purpose: Apply style to word.
  5. */
  6.  
  7. options results
  8. parse arg stylechar
  9.  
  10. /* needs GoldED functions */
  11.  
  12. p = address() || ' ' || show('P',,)
  13. portname = pos('GOLDED.',p)
  14.  
  15. if portname > 0 then portname = word(substr(p,portname),1)
  16. else
  17. do
  18.     say 'No GoldED port found!'
  19.     exit 10
  20. end
  21.  
  22. address(portname)
  23.  
  24. REQLIST ENTRY '"Bold"' '"Italic"' '"Reverse"' '"Underline"' VAR result TITLE '"Select style"'
  25.  
  26. select
  27.     when(result = 0) then stylechar = '*'
  28.     when(result = 1) then stylechar = '/'
  29.     when(result = 2) then stylechar = '#'
  30.     when(result = 3) then stylechar = '_'
  31.     otherwise exit
  32. end
  33.  
  34. PREV
  35. FIX VAR stylechar
  36. TEXT T stylechar
  37. ENDWORD
  38. RIGHT
  39. TEXT T stylechar
  40.